% callback routine initialize_parameters
% reads parameters from text boxes and sliders
% and fills them into the parameter space

HandleEditTextHR=findobj(gcf,'Tag','EditTextHR');
HR=str2num(get(HandleEditTextHR,'String'));

HandleEditTextEmaxV=findobj(gcf,'Tag','EditTextEmaxV');
EmaxV=str2num(get(HandleEditTextEmaxV,'String'));

HandleEditTextTEmaxV=findobj(gcf,'Tag','EditTextTEmaxV');
TEmaxV=str2num(get(HandleEditTextTEmaxV,'String'));

HandleEditTextEminV=findobj(gcf,'Tag','EditTextEminV');
EminV=str2num(get(HandleEditTextEminV,'String'));

HandleEditTextVdeadV=findobj(gcf,'Tag','EditTextVdeadV');
VdeadV=str2num(get(HandleEditTextVdeadV,'String'));

HandleEditTextPvenous=findobj(gcf,'Tag','EditTextPvenous');
Pvenous=str2num(get(HandleEditTextPvenous,'String'));

HandleEditTextZ0=findobj(gcf,'Tag','EditTextZ0');
Z0=str2num(get(HandleEditTextZ0,'String'));

HandleEditTextL=findobj(gcf,'Tag','EditTextL');
L=str2num(get(HandleEditTextL,'String'));

HandleEditTextC=findobj(gcf,'Tag','EditTextC');
C=str2num(get(HandleEditTextC,'String'));

HandleEditTextR=findobj(gcf,'Tag','EditTextR');
R=str2num(get(HandleEditTextR,'String'));

HandleEditTextT_interval=findobj(gcf,'Tag','EditTextT_interval');
t_interval=str2num(get(HandleEditTextT_interval,'String'));

HandleEditTextRmv=findobj(gcf,'Tag','EditTextRmv');
Rmvfwd=str2num(get(HandleEditTextRmv,'String'));

HandleEditTextRmvbwd=findobj(gcf,'Tag','EditTextRmvbwd');
Rmvbwd=str2num(get(HandleEditTextRmvbwd,'String'));

HandleEditTextRao=findobj(gcf,'Tag','EditTextRao');
Raofwd=str2num(get(HandleEditTextRao,'String'));

HandleEditTextRaobwd=findobj(gcf,'Tag','EditTextRaobwd');
Raobwd=str2num(get(HandleEditTextRaobwd,'String'));

HandleListboxSystem=findobj(gcf,'Tag','ListboxSystem');
loadmodel=get(HandleListboxSystem,'Value');

HandleListboxElastanceV=findobj(gcf,'Tag','ListboxElastanceV');
loadelastV=get(HandleListboxElastanceV,'Value');

Pumptype=0;

HandleEditTextPrecision=findobj(gcf,'Tag','EditTextPrecision');
prec_BP=str2num(get(HandleEditTextPrecision,'String'));

HandleEditTextSV=findobj(gcf,'Tag','EditTextSV');
set(HandleEditTextSV,'String','');

HandleEditTextPsys=findobj(gcf,'Tag','EditTextPsys');
set(HandleEditTextPsys,'String','');

HandleEditTextPdia=findobj(gcf,'Tag','EditTextPdia');
set(HandleEditTextPdia,'String','');

HandleEditTextPmean=findobj(gcf,'Tag','EditTextPmean');
set(HandleEditTextPmean,'String','');

HandleEditTextLVEDV=findobj(gcf,'Tag','EditTextLVEDV');
set(HandleEditTextLVEDV,'String','');

HandleEditTextAOLeak=findobj(gcf,'Tag','EditTextAOLeak');
set(HandleEditTextAOLeak,'String','');

HandleEditTextAOFwd=findobj(gcf,'Tag','EditTextAOFwd');
set(HandleEditTextAOFwd,'String','');

HandleEditTextMVLeak=findobj(gcf,'Tag','EditTextMVLeak');
set(HandleEditTextMVLeak,'String','');

HandleEditTextMVFwd=findobj(gcf,'Tag','EditTextMVFwd');
set(HandleEditTextMVFwd,'String','');

HandleEditTextPLVleak=findobj(gcf,'Tag','EditTextPLVleak');
set(HandleEditTextPLVleak,'String','');

HandleEditTextPaoleak=findobj(gcf,'Tag','EditTextPaoleak');
set(HandleEditTextPaoleak,'String','');

HandleEditTextTAOLeak=findobj(gcf,'Tag','EditTextTAOLeak');
set(HandleEditTextTAOLeak,'String','');

HandleEditTextTMVLeak=findobj(gcf,'Tag','EditTextTMVLeak');
set(HandleEditTextTMVLeak,'String','');

pause(0.01);

T=60/HR;
time=(t_interval:t_interval:T)';			% make a column vector representing time
npoints=length(time);

